home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / misc / xes120.lha / XES / REXX / DownLevel.xdme < prev    next >
Text File  |  1994-11-09  |  863b  |  34 lines
  1. /* DownLevel.xdme © 1994 Fergus Duniho */
  2. /* Makes an outline section into the first sub-section of the outline */
  3. /* section above it */
  4.  
  5. 'first while !r up up while !r up if !t down'
  6. address 'XDME.1'
  7. options results
  8. 'rxresult $currentline'
  9. LINE = result
  10. POSITION = Verify(LINE,'.)',m)
  11. LEVEL = (POSITION - 9)%4 + 1
  12. HEADING = Word(LINE,1)
  13. ALPHANUM = Left(HEADING,Length(HEADING)-1)
  14.  
  15. Select
  16.     When LEVEL = 1 Then ALPHANUM = 'A.'
  17.     When LEVEL = 2 Then ALPHANUM = '1.'
  18.     When LEVEL = 3 Then ALPHANUM = 'a.'
  19.     When LEVEL = 4 Then ALPHANUM = 'i.'
  20.     When LEVEL = 5 Then ALPHANUM = '1)'
  21.     When LEVEL = 6 Then ALPHANUM = 'a)'
  22.     When LEVEL = 7 Then ALPHANUM = 'i)'
  23.     Otherwise NOP
  24. End
  25.  
  26. 'while !r down'
  27. wright
  28. LINE = "'" Copies(' ',POSITION-(Length(ALPHANUM)-2)) ALPHANUM || ' ' Strip(Delword(Strip(Extract()),1,1))
  29. first
  30. remeol
  31. LINE
  32. C = 'col' POSITION+4
  33. C
  34.